What PC? 1996 July/WPCJUL96.ISO/file.exe/GROFINJ.DXR/00029_grointro .ls

Text File | 1996-05-15 | 3.2 KB | 103 lines

on grointro
  global grosectactive, groanimatelist, gropointer, GROChooseQuit
  GROENTSECTION()
  set grosectactive to 1
  set the castNum of sprite 6 to 48
  set the locH of sprite 11 to 200
  set the locV of sprite 11 to 200
  set the ink of sprite 11 to 39
  set the castNum of sprite 17 to 64
  set the castNum of sprite 18 to 65
  set the castNum of sprite 35 to 81
  set the locH of sprite 17 to 380
  set the locH of sprite 18 to 430
  set the locH of sprite 35 to 380
  set the locV of sprite 17 to 288
  set the locV of sprite 18 to 337
  set the locV of sprite 35 to 288
  set the castNum of sprite 20 to 92
  set the locH of sprite 20 to 200
  set the locV of sprite 20 to 200
  set the ink of sprite 20 to 39
  updateStage()
  set the castNum of sprite 10 to 30
  set the locH of sprite 10 to 517
  set the locV of sprite 10 to 264
  updateStage()
  repeat while (grosectactive = 1) and (GROChooseQuit <> 2)
    GROQuitCD()
    if GROChooseQuit <> 2 then
      repeat while (the movieTime of sprite 10 < 3060) and (GROChooseQuit <> 2)
        GROQuitCD()
        if GROChooseQuit = 2 then
          exit repeat
        end if
        if the movieTime of sprite 10 >= 1420 then
          set the castNum of sprite 13 to 26
          set the locH of sprite 13 to 100
          set the locV of sprite 13 to 400
          set the ink of sprite 13 to 0
        end if
        if the movieTime of sprite 10 >= 1640 then
          set the castNum of sprite 14 to 25
          set the locV of sprite 14 to 255
          set the locH of sprite 14 to 140
          set the ink of sprite 14 to 0
        end if
        if the movieTime of sprite 10 >= 1840 then
          set the castNum of sprite 15 to 24
          set the locV of sprite 15 to 330
          set the locH of sprite 15 to 100
        end if
        if the movieTime of sprite 10 >= 2038 then
          set the castNum of sprite 16 to 23
          set the locV of sprite 16 to 440
          set the locH of sprite 16 to 140
          set the ink of sprite 16 to 0
        end if
        if rollOver(18) then
          if the mouseDown then
            set the movieRate of sprite 10 to 0
            if GROChooseQuit <> 2 then
              repeat while the movieRate of sprite 10 = 0
                if rollOver(17) then
                  if the mouseDown then
                    set the movieRate of sprite 10 to 1
                  end if
                end if
                groANIMATESCREEN()
                if GROChooseQuit = 2 then
                  exit repeat
                end if
              end repeat
            end if
          end if
        else
          if rollOver(17) then
            if the mouseDown then
              set grosectactive to "true"
              set the movieRate of sprite 10 to 1
            end if
          end if
        end if
        updateStage()
        if GROChooseQuit = 2 then
          exit repeat
        end if
      end repeat
    end if
    if GROChooseQuit = 2 then
      exit repeat
    end if
    if rollOver(17) then
      if the mouseDown then
        set the movieTime of sprite 10 to 0
      end if
    end if
    groANIMATESCREEN()
    if GROChooseQuit = 2 then
      exit repeat
    end if
  end repeat
end